How do i do app.path in VB.NET

[Edneeis]

Dim conn As ADODB.Connection 
conn = New ADODB.Connection() 
Dim objword As Word.Application 
'I took out some unneeded stuff here
sApppath = IO.path.Combine(Application.StartupPath, "Addressdb.mdb") 'you forgot a ( at the start here
 
conn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data source=" & sApppath & ";Mode=Share deny None" 'the database name is already in the sApppath varaible so no need for it at the end
conn.Open()