判断数据库中如果表不存在，则创建 代码提示定义类型出错

On Error Resume Next '对错误信息进行处理,如果不包含表则直接执行下一句sql
 DoCmd.SetWarnings False
    Dim rs As New ADODB.Recordset
    Dim dbs As Database
    Dim tdf As TableDef
    Dim strSql As String
    Dim strName As String
    Set dbs = CurrentDb
     For Each tdf In dbs.TableDefs
        strName = tdf.Name
        strSql = "select Name from MsysObjects where type=1 and Flags=0 and Name=' & strName & '"
        rs.Open strSql, CurrentProject.Connection, adOpenStatic, adLockReadOnly
        If rs.RecordCount < 1 Then

            DoCmd.RunSQL "create table & strName & (ID text(12),PNumber text(9),X Double,Y Double,SurfH Double,PType Text(2),GTYPE Text(20))"

****************************************分割线***************************************

错误提示：用户类型未定义是怎么回事？