"编译错误 赋值号左边的函数调用必须返回变体或对象 " 是不是模块出了错？救我！各位兄台..(代码以下)

Question

Public fMainForm As frmMain
Public gintWZSmode As Integer 'for WZ setup
Public gintGFSmode As Integer 'for GF setup
Public gintKHSmode As Integer 'for KH setup
Public gintYWYLBSmode As Integer 'for YWYLB setup
Public gintYWYSmode As Integer 'for YWY setup
Public gintCKSmode As Integer 'for CK setup
Public gintWZLBSmode As Integer 'for WZLB setup
Public gintWZYSSmode As Integer 'for WZYS setupPublic gintDHmode As Integer 'for din huo
Public gintINHmode As Integer 'for ruku huo
Public gintXSDHmode As Integer 'for xiao shou ding dan
Public gintOUTHmode As Integer 'for xiao shou ding dan
Public gintZCmode As Integer 'for shang pin zhuan cang
Public gintGETmode As Integer 'for ying shou
Public gintOFFERmode As Integer 'for YING FU
Public gintPLLISTmode As Integer 'for PEI LIAO LIST
Public gintPLmode As Integer 'for PEI LIAO
Public gintPLANGLISTmode As Integer 'for plan list
Public gintPLANGmode As Integer 'for plan    
Sub Main()
    Dim fLogin As New frmLogin
    fLogin.Show vbModal
    If Not fLogin.OK Then
        'Login Failed so exit app
        End
    End If
    Unload fLogin
    Set fMainForm = New frmMain
    fMainForm.Show
End SubPublic Function ConnectString() _
   As String
'returns a DB ConnectString
   ConnectString = "FileDSN=my_bookstore.dsn;UID=sa;PWD="
End Function
Public Function ExecuteSQL(ByVal SQL _
   As String, MsgString As String) _
   As ADODB.Recordset
'executes SQL and returns Recordset
   Dim cnn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim sTokens() As String
   
   On Error GoTo ExecuteSQL_Error
   
   sTokens = Split(SQL)
   Set cnn = New ADODB.Connection
   cnn.Open ConnectString
   If InStr("INSERT,DELETE,UPDATE,EXECUTE", _
      UCase$(sTokens(0))) Then
      cnn.Execute (SQL)
      MsgString = sTokens(0) & _
         " query successful"
   Else
      Set rst = New ADODB.Recordset
      rst.Open Trim$(SQL), cnn, _
         adOpenKeyset, _
         adLockOptimistic
      'rst.MoveLast     'get RecordCount
      Set ExecuteSQL = rst
      MsgString = "²éѯµ½" & rst.RecordCount & _
         " Ìõ¼Ç¼ "
   End If
ExecuteSQL_Exit:
   Set rst = Nothing
   Set cnn = Nothing
   Exit Function
   
   
ExecuteSQL_Error:
   MsgString = "²éѯ´íÎó: " & _
      Err.Description
   Resume ExecuteSQL_Exit
End FunctionPublic Function GetRkno() As String
    GetRkno = Format(Now, "yymmddhhmmss")
    Randomize
    GetRkno = GetRkno & Int((99 - 10 + 1) * Rnd + 10)
End Function
Public Function GetRkno1() As String
    Randomize
    GetRkno = Int((99999999 - 10000000 + 1) * Rnd + 10000000)　＇注：在这里提示＂GetRkno＂出错
End Function
Public Sub EnterToTab(KeyAscii As Integer)
    If KeyAscii = 13 Then
       KeyAscii = 0
        SendKeys "{TAB}"
    End If
End Sub

Answer 1

GetRkno1 = Int((99999999 - 10000000 + 1) * Rnd + 10000000)　＇注：在这里提示＂GetRkno＂出错

Answer 2

是这里出错呀，怎解决啊，
并且子窗体登记资料也是出了错
 txtSQL = txtSQL & GetRkno() & "','"　　的.怎解决？？　谢谢你啊

Answer 3

1楼已经说了，楼主没看出来？Public Function GetRkno1() As String
    Randomize
    GetRkno = Int((99999999 - 10000000 + 1) * Rnd + 10000000)　＇注：在这里提示＂GetRkno＂出错
   >>> GetRkno应该写成GetRkno1<<<
End Function