设，你已经把这个字段读至变量a
……
b=split（a，"#")
for i=0 to ubound(b)
    combo1.additem b(i)
next i

楼上正解！

我试过了，但是不知道怎样给combox中添加items
我只会添加到textbox中
 Dim a As String = TextBox1.Text
        Dim b() As String
        b = Split(a, "#")
        For i = 0 To UBound(b)
            TextBox2.Text &= (b(i))
        Next i