现有这样的数据AD090809，ABC090807，ABCD123,AB231111如何提取前面的非数字的字符，结果应为AD,ABC,ABCD,AB

函数一：

Public Function gStr(ByVal strTblName As String, _

                     ByVal strFldName As String, _

                     OldStr As String) As String

    Dim rs As New ADODB.Recordset

    Dim i As Integer

    Dim tempStr As String

    Dim strSQL As String

    strSQL = "select * from " & strTblName & " where " & strFldName _

           & "='" & OldStr & "'"

    With rs

        .Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly

        For i = 1 To Len(.Fields(strFldName))

            tempStr = Mid(.Fields(strFldName), i, 1)

            If IsNumeric(tempStr) Then

                gStr = Left(.Fields(strFldName), i - 1)

                Exit For

            End If

        Next

        .Close

    End With

    Set rs = Nothing

End Function

函数二：

Public Function gStr(OldStr As String) As String

    Dim tempStr As String

    Dim i As Integer

    For i = 1 To Len(OldStr)

        tempStr = Mid(OldStr, i, 1)

        If IsNumeric(tempStr) Then

            gStr = Left(OldStr, i - 1)

            Exit For

        End If

    Next

End Function