关于在vb中出现缺少分隔符或的问题

Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
或者
Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) _
As ADODB.Recordset

注意你里面少了几个空格，ByValSQL，AsString 中间，续行符 _前面都要有空格。

一排写不完的话需要分两次完成

可能是循环语句没有结束少打了个终止指令

Public Function ExecuteSQL(ByValSQL As String,MsgString AsString) As ADODB.Recordset

把_去掉或在_前加一个空格