Hello sir,
Help me in this coding
My recordset contains 11-2, 5-2, 5, 6 datas in no1 field
I used the below coding to search and replace it with but not working properly.


Private Sub Command1_Click()
rs.Open "check1", db, 3, 2

Dim TestString As String
TestString = rs.Fields("no1")


Dim aString As String

aString = Replace(TestString, "*-*", "*/*")
MsgBox aString

End Sub

The output i got is only 11-2

Thank you sir.