VB运行时出现用户类型未定义什么原因

Public gUserName As String '保存用户名称
Public flag As Integer '添加和修改的标志
Public gSQL As String '保存SQL语句
Public kqsql As String '保存查询考勤结果SQL语句
Public kqsql2 As String '保存查询其他考勤结果SQL语句
Public ArecordID As Integer '保存上下班记录编号
Public LrecordID As Integer '保存请假记录编号
Public OrecordID As Integer '保存加班记录编号
Public ErecordID As Integer '保存出差记录编号
Public iflag As Integer '数据库是否打开标志

Public Function TransactSQL(ByVal sql As String) As ADODB.Recordset
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strConnection As String
Dim strArray() As String
Set con = New ADODB.Connection '创建连接
Set rs = New ADODB.Recordset

急：VB编程时出现“用户定义类型未定义” VB编程时出现“用户定义类型未定义” VB用户定义类型未定义 vb用户定义类型未定义? 出现用户定义类型未定义 关于vb的问题用户定义类型未定义 用户定义类型未定义 用户类型未定义 我用VB编写用户注册代码时,出现with块变量未定义 请问下面我（用户）定义的类型怎么定义呢？不然运行的话，会提示“用户定义类型未定义”！