主题：[求助]字串符分离的问题？

Dim lst As WinForm.ListBox = e.form.Controls("ListBox1")

Dim val As String = e.form.Controls("ComboBox1").Value.split(",")(0)
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT BH,BRXM,MC From {SFMX} Where BH = " & val & ""
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.datarows
    lst.items.Add(dr("BH") & "," & dr("BRXM") & "," & dr("MC"))
Next

问题在代码红色部分。

如题：

20130308-001,答复,大生化，直接分离出前边编号（20130308-001）。