小弟菜鸟，求教各位一些比较简单的问题，能帮忙回答下吗?

Question

是一些vb中的问题，刚学这个东西，由于时间很紧，所以没有足够的资料，情各位帮个忙，谢谢1.比如说有个string类型的”asfasdfa"，想知道其中的"as"组合在第几个位置要用什么函数啊？
  还有判断出来后想分别取as前与后的字串要用什么函数啊？
2.要想新建一个表要怎么在vb中通过sql语句实现啊？我用的是access数据库 ，还有象那中文本/long/date之间的相互转换函数有吗？能不能给个具体的离子？
3.vb中能不能使用“讲师=讲师”这样的汉字之间的比较啊？如果不幸的话，我要比较两个汉字之间是否一样该怎么半啊？还有怎么样才能把汉字从类似于“汉字saf"这样的混合string中脱离开来啊 ？
4。最后一个了，怎么把access中的数据导入到excel文件中的啊,on error goto是不是在任何一个程序出错的时候都会运行的？
问题可能很简单，先谢过各位了！

Answer 1

1，用instr()函数试试
2，写建表语句，在代码中用ADO连接数据库后执行

Answer 2

谢谢楼上的，我已经能进行连接了，不过不知道具体的建表语句啊，好象sql里的那种一般的”create table....“不幸的，我不知道该怎么半了，能给段具体的小程序吗》？

Answer 3

１、　i=instr("asfdjkfs","as")  ‘用Ｉ得到位置
　　　str1=right("asfdjkfs",i+1)  '得到右边的。
　　　str２=rleft("asfdjkfs",i-1) '得到左边的3、　ＶＢ６。０已经可以用汉字比较
４、当错误时执行下一句的是：　　
　　　　on error resume next

Answer 4

1， 用字符函数MID mid("asdfsdfsdf",1,2)取字符串中从第一位开始,取二个字符.
2
3,可以汉字比较.如i=汉字 i=i
4,出错语句是指在一个过程序中出错而返回的.

Answer 5

第二条忘写了，你用ADO，ADOX建吧

Answer 6

2.建表语句
create table vendor_master(
Col1 text(5),
Col2 text(20),
Col3 text(20),
Col4 text(20)
);
4
Dim fs As New FileSystemObject
    Dim txtFile As TextStream
    With CommonDialog1
        .Filter = "Excel文件(*.xls)|*.xls"
        .DialogTitle = "导出为"
        .FilterIndex = 0
        .FileName = ""
        .ShowSave
    End With
    
    If CommonDialog1.FileName = "" Then
        Exit Sub
    End If
    Ocn.open "" '(打开你要的表)
    rs.Open "Select * from TableName", Ocn, adOpenDynamic, adLockReadOnly
    
    If rs.EOF = True Then
        Set rs = Nothing
        Exit Sub
    End If
    
    Set txtFile = fs.CreateTextFile(CommonDialog1.FileName, True)
        txtFile.Write rs.GetString
    End If
    Set rs=Nothing
    txtFile.Close
    MsgBox "导出成功", , "提示"
    Unload Me
    Exit Sub
需引用Microsoft scripting Runtime
添加部件Microsoft Windows Common Controls 6.0
(这个问题我已经回答了N次了,建议楼猪以后问的时候先看看原来别人是不是已经问过)On Error只对当前的Sub有效