VB Access登陆

If Text1.Text <> "" And Text2.Text <> "" Then   Dim cnn As ADODB.Connection  '定义连接   Dim Rs As ADODB.Recordset   Set cnn = New ADODB.Connection '定义连接   Set Rs = New ADODB.Recordset   Dim strSQL As String   Static trytime As Integercnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _& App.Path & _"\考勤管理系统.mdb;Persist Security Info=False;Jet OLEDB:Database Password=020135" '创建连接"   Rs.Open "select    1    from    [用户信息]    where    用户名称='" _   & Text1.Text & "'    and    用户密码='" & Text2.Text & "'and 用户类型='" _   & Combo1 & "'", cnn, adOpenKeyset, _   adLockBatchOptimistic '对用户输入的用户名、密码和用户类型与数据库进行匹配       If Rs.EOF Then       MsgBox "用户名称或密码错误！", vbOKOnly + vbExclamation, "警告"           Text1.Text = ""           Text2.Text = ""           Text1.SetFocus           trytime = trytime + 1           If trytime >= 3 Then           MsgBox "您已连续输入错误达3次！系统将自动关闭！！", vbExclamation + vbOKOnly, "温馨提示"           cnn.Close           End           Else           Exit Sub        End If     End If


	
				
	
					   
VB Access登陆
	  	   
WindowsForm登陆窗体的制作(Vb.net+Access)
	  	   
vb+access
	  	   
VB + ACCESS 报表
	  	   
VB 压缩Access数据库
	  	   
Vb.net Access
	  	   
vb.net 操作Access
	  	   
VB连接ACCESS
	  	   
vb+access求助题目
	  	   
VB连接ACCESS数据库
	  	   
vb+access设计
	  	   
VB 压缩Access数据库
	  	   
VB操作access数据库
	  	   
VB连接access数据库
	  	   
vb 连接 access
	  	   
VB与Access数据库连接
	  	   
VB邮箱登陆
	  	   
VB登陆163邮箱
	     		  
	  	   
连续子数组最大和问题（能够处理全是负数，返回子数组的起止索引的O（N）算法）
	  	   
Android 4.0 SDK的离线方式安装(2)
	  	   
第五天 超链接伪类
	  	   
第三篇：逆向之快速排序
	  	   
Handler和ProgressBar实现进度条的开始，暂停，停止，后退和循环
	  	   
VB Access登陆
	  	   
Cglib简单学习（1）
	  	   
【算法复习四】计算复杂性与算法分析---组合数学知识汇总
	  	   
gdb和gdbserver的安装和使用
	  	   
第四篇：逆向之堆排序
	  	   
概率相关题目
	  	   
第五篇：逆向之二路归并排序
	  	   
维修记录 - 格兰仕光波炉
	  	   
第六篇：逆向分析之LSD基数排序